Option Explicit
Sub I_Sample007()
    Dim mySht As Worksheet
    Dim myShts As Sheets
    Dim myPrpAr    As Variant
    Dim myPs As PageSetup
    Dim i    As Long
    Dim j    As Long
    'Noʽ}C
    myPrpAr = Array("LeftHeader", "CenterHeader",  _
    "RightHeader", "LeftFooter", _
    "CenterFooter", "RightFooter", "LeftMargin", "RightMargin", _
    "TopMargin", "BottomMargin", "HeaderMargin", "FooterMargin", _
      	"PrintHeadings", "PrintGridlines", "PrintComments", _         
    "PrintQuality", _
    "CenterHorizontally", "CenterVertically", "Orientation", _
    "Draft", "PaperSize", "FirstPageNumber", "Order", _
    "BlackAndWhite", "Zoom", "PrintErrors")
    Set myPs = Worksheets(1).PageSetup			'ƻsӷ
    Set myShts = Worksheets(Array("Sheet2", "Sheet3"))	'ƻsؼЪg
    For Each mySht In myShts
        With mySht
        For i = 0 To UBound(myPrpAr)
            On Error Resume Next
            If CallByName(.PageSetup, myPrpAr(i), VbGet) <> _
                CallByName(myPs, myPrpAr(i), VbGet) Then
                CallByName .PageSetup, myPrpAr(i), VbLet, _
                CallByName(myPs, myPrpAr(i), VbGet)
            End If
            On Error GoTo 0
        Next
        End With
    Next
End Sub
